home *** CD-ROM | disk | FTP | other *** search
- tell application "Mail"
- set infoStr to "\n\n------ System Information ------\nMail:" & version & "; %s"
- set newmessage to make new outgoing message with properties {subject:"JunkMatcher: Feedback", content:infoStr, visible: false}
- tell newmessage
- make new to recipient at end of to recipients with properties {name:"Benjamin Han", address:"benhdj@users.sourceforge.net"}
- set visible to true
- end tell
- activate
- end tell
-